home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Pier Shareware 3
/
The Pier Shareware Number 3 (The Pier Exchange) (1993).iso
/
024
/
gpal101g.exe
/
GPAL.BI
< prev
next >
Wrap
Text File
|
1993-08-11
|
2KB
|
17 lines
DECLARE SUB GPal (Colour%, Red%, Green%, Blue%) ' Colour: 0-255 Red: 0-63 (intensity)/Green: 0-63 (intensity)/Blue: 0-63 (intensity)
DECLARE SUB GSavePalette (FileName$) ' Saves the current palette to disk.
DECLARE SUB GLoadPalette (FileName$, ErrCode%) ' ErrCode: 0 - All's Ok 1 - Not a GPAL file
DECLARE SUB GFadeOutPalette (FadeSpeed%) ' Fade Speed: Range 1 - 10, 1 being the slowest.
DECLARE SUB GFadeInPalette (FadeSpeed%) ' Fade Speed: Range 1 - 10, 1 being the slowest. Use 0 for instant palette display.
DECLARE SUB GBlankPalette (Options%) ' Options: 0 - Set palette to black instantly 1 - Slowly set palette to black
DECLARE SUB InitGPALDriver () ' Initializes the GPAL driver. (Note: always call "InitGPALDriver" after changing any palette values)
DECLARE SUB GetPalette (Array&()) ' Array: Array data to be used with "PALETTE USING"
DECLARE SUB GetPaletteRGB (Array&()) ' Array: Array data sorted in an RGB pattern
DECLARE SUB GrafLoad (FileName$, Options%, ErrCode%) ' Options: 0 - Load image only, no palette 1 - Load palette before image 2 - Load palette after image 3+ - Fade-in palette after image
DECLARE SUB GrafSave (FileName$) ' Saves a graphic image to disk.
DECLARE SUB MoveDisplay (xAxis%, yAxis%) ' Moves the display left/right/up/down
DECLARE SUB GSetBright (Brightness%) ' Brightness: Range 1 - 63, 1 being the darkest. Use 0 to restore the brightness.
DECLARE SUB GRestorePalette (Index%) ' Index: Number of palette to restore. Range 0-4.
DECLARE SUB GStorePalette (Index%) ' Index: Number to store palette as. Range 0-4.